Option Strict Off
Option Explicit On

Imports System.Windows

Namespace Facades
    Public NotInheritable Class RadialGaugeTickMarkGroupFacade

        Private brother As Infragistics.Controls.Charts.RadialGaugeTickMarkGroup

        Public Sub New(ByVal brother As Infragistics.Controls.Charts.RadialGaugeTickMarkGroup)
            MyBase.New()
            Me.brother = brother
        End Sub

        Public Property StartExtent() As Double
            Get
                Return Me.brother.StartExtent
            End Get
            Set(ByVal value As Double)
                Me.brother.StartExtent = value
            End Set
        End Property

        Public Property EndExtent() As Double
            Get
                Return Me.brother.EndExtent
            End Get
            Set(ByVal value As Double)
                Me.brother.EndExtent = value
            End Set
        End Property

        Public Property Interval() As Double
            Get
                Return Me.brother.Interval
            End Get
            Set(ByVal value As Double)
                Me.brother.Interval = value
            End Set
        End Property

        Public Property Stroke() As System.Windows.Media.Brush
            Get
                Return Me.brother.Stroke
            End Get
            Set(ByVal value As System.Windows.Media.Brush)
                Me.brother.Stroke = value
            End Set
        End Property

        Public Property PostInitial() As Double
            Get
                Return Me.brother.PostInitial
            End Get
            Set(ByVal value As Double)
                Me.brother.PostInitial = value
            End Set
        End Property

        Public Property PreTerminal() As Double
            Get
                Return Me.brother.PreTerminal
            End Get
            Set(ByVal value As Double)
                Me.brother.PreTerminal = value
            End Set
        End Property

        Public Property TickMarkStyle() As System.Windows.Style
            Get
                Return Me.brother.TickMarkStyle
            End Get
            Set(ByVal value As System.Windows.Style)
                Me.brother.TickMarkStyle = value
            End Set
        End Property
    End Class
End Namespace